home *** CD-ROM | disk | FTP | other *** search
/ Amiga Magazin: Amiga-CD 1995 October / Amiga-CD 1995 #10.iso / weitere_demos / the_light_works / cinema4d_demo / install-maxoncinema4d < prev    next >
Text File  |  1995-08-21  |  17KB  |  508 lines
  1. ; $VER: MaxonCINEMA4D V1.100 Install Version 1.10 (25.11.93)
  2. ; Script zum Installieren von MaxonCINEMA4D V1.10 auf Festplatte und Diskette
  3. ;
  4.  
  5. (complete 0)
  6.  
  7. (set os-version (/ (getversion) 65536))
  8. (set os-13 (< os-version 36))
  9. (set os-20 (>= os-version 36))
  10. (set os-21 (>= os-version 38))
  11. (set cpu-type (database "cpu"))
  12. (set pal-ntsc (database "vblank"))    ; entsprechend den Default Knopf in der Abfrage ändern
  13.  
  14. (set fdinstall 1)            ; auf Platte (1) oder Disk (0)
  15. (set fdrawer "WORK:")            ; default Verzeichnis
  16. (set fdversion 0)
  17. (if (<> cpu-type "68000")
  18.     (
  19.     (if (<> cpu-type "68010")
  20.         (
  21.         (set fdversion 1))
  22.     )))
  23.  
  24. (if (= pal-ntsc "50")
  25.     (
  26.     (set palntsc 0))    ; PAL
  27.     ((set palntsc 1))    ; NTSC
  28. )
  29.  
  30. (set egs (getassign "EGS"))
  31. (set gfxout 0)            ; Keine
  32. (if (<> egs "")
  33.     ((set gfxout 3)))    ; 4=Picclo, 3=EGS, 2=Merlin, 1=Retina
  34.  
  35. (set samples 1)            ; 1 Beispiele installieren, 0 nicht installieren
  36.  
  37. ; Die Pfadnamen der einzelnen Quell-Dateien.
  38.  
  39. (set sourcefd-more                "MaxonCINEMA_1/More")
  40. (set sourcefd-lhx                "MaxonCINEMA_1/C/LHX")
  41.  
  42. (set sourced-palturbo                "INSTALLATION:Prefs-Archiv/DISK_PAL_881.prefs")
  43. (set sourced-ntscturbo                "INSTALLATION:Prefs-Archiv/DISK_NTSC_881.prefs")
  44. (set sourced-palnormal                "INSTALLATION:Prefs-Archiv/DISK_PAL_000.prefs")
  45. (set sourced-ntscnormal                "INSTALLATION:Prefs-Archiv/DISK_NTSC_000.prefs")
  46. (set sourcef-ntscturbo                "INSTALLATION:Prefs-Archiv/HD_NTSC_881.prefs")
  47. (set sourcef-ntscnormal                "INSTALLATION:Prefs-Archiv/HD_NTSC_000.prefs")
  48.  
  49. (set sourcefd-retina                "MaxonCINEMA_1/Treiber/Retina/cinemaausgabe.library")
  50. (set sourcefd-merlin                "MaxonCINEMA_1/Treiber/Merlin/cinemaausgabe.library")
  51. (set sourcefd-egs                    "MaxonCINEMA_1/Treiber/EGS/cinemaausgabe.library")
  52. (set sourcefd-picasso            "MaxonCINEMA_1/Treiber/Picasso/cinemaausgabe.library")
  53.  
  54. ; Patternkopie mit #? (alle auf dem angegebenen Pfad)
  55.  
  56. (set sourcef-pattern-bilder        "DISKETTE3:Bilder")    ; alle übertragen
  57. (set sourcef-Pattern-disk4        "DISKETTE4:")        ; alle Texturen von Disk 4
  58.  
  59. ; LHA-Dateien
  60.  
  61. (set sourcefd-lha-normalversion    "MaxonCINEMA_1/Demo.lha")
  62. (set sourcefd-lha-Konverter        "MaxonCINEMA_2/DemoKonverter.lha")
  63. (set sourcefd-lha-Schubladen        "MaxonCINEMA_2/Schubladen.lha")
  64. (set sourcefd-lha-rctlib            "MaxonCINEMA_2/rctlib.lha")
  65.  
  66. ;============================
  67. ;=== Deutsche Erklärungen ===
  68. ;============================
  69. (set #startup-help
  70. (cat "Erklärung der Schalter:\n\n"
  71.      "\"Install for Real\"\n"
  72.      "Dies veranlaßt den Installer, die Installation tatsächlich vorzunehmen.\n\n"
  73.      "\"Pretend to Install\"\n"
  74.      "Hiermit führt der Installer alle Schritte der Installation durch. "
  75.      "Allerdings werden keine Änderungen an irgendwelchen Dateien vorgenommen. "
  76.      "Man kann diese Option dazu verwenden, um zu sehen, was der Installer tun "
  77.      "wird, bevor man die eigentliche Installation veranlaßt. In Verbindung "
  78.      "mit dem Schalter \"Log File\" darunter erhält man außerdem eine komplette "
  79.      "Liste über alle durchgeführten Aktionen.\n\n"
  80.      "\"Printer\"\n"
  81.      "Hiermit wird eine Liste aller Aktionen des Installers auf dem Drucker "
  82.      "ausgegeben.\n\n"
  83.      "\"Log File\"\n"
  84.      "Alle Aktionen des Installers werden in eine Protokolldatei geschrieben. Wenn "
  85.      "die Installation beendet ist, werden Sie über den Ort dieser Datei informiert. "
  86.      "Sie können diese Liste mit einem beliebigen Editor betrachten.\n\n"
  87.      "\"None\"\n"
  88.      "Ist dieser Schalter gedrückt, so wird keine Protokolldatei erzeugt.\n"))
  89. (set #introduction
  90. (cat "Mit diesem Installationsprogramm können Sie\n MaxonCINEMA 4D\n auf einer "
  91.      "Festplatte installieren.\nDie Installation läuft "
  92.      "nahezu vollständig automatisch ab.\n"
  93.      "Das komplette Programm belegt ca. 5 MByte auf Ihrer Festplatte!\n\n"
  94.      "Drücken Sie \"Proceed\", um mit der Installation fortzufahren.\n"
  95.      "Drücken Sie \"Abort Install\", um die Installation abzubrechen."))
  96. (set #diskinstallhinweis
  97. (cat "Damit Cinema 4D installiert werden kann, benötigen Sie sieben Leerdisketten mit den folgenden Namen:\n\n"
  98.      "CINEMA 4D\n"
  99.      "Hilfsprogramme\n"
  100.      "Diamant\n"
  101.      "Zeichensätze\n"
  102.      "Szenen\n"
  103.      "Daten\n"
  104.      "Texturen\n"
  105.      "\nBitte fahren Sie erst fort, wenn Sie diese Leerdisketten bereit liegen haben!\n\n"))
  106. (set #reduceddiskinstallhinweis
  107. (cat "Damit Cinema 4D installiert werden kann, benötigen Sie eine Leerdisketten mit dem Namen \"Cinema 4D\"\n\n"
  108.      "Bitte fahren Sie erst fort, wenn Sie diese Leerdiskette bereit liegen haben!\n\n"))
  109.  
  110.     (set #wrk-create-pref-file
  111.         "\nDie Voreinstellungs-Datei wird erzeugt...")
  112.     (set #wrk-copy-egs
  113.         "\nEinige EGS-Zusatzdateien werden installiert...")
  114.     (set #wrk-installing-prgnormal
  115.         "\nDie Normalversion von MaxonCINEMA 4D wird installiert...\n")
  116.     (set #wrk-installing-prgturbo
  117.         "\nDie Turboversion von MaxonCINEMA 4D wird installiert...\n")
  118.     (set #wrk-installing-Diamant
  119.         "\nDie Beispieldatei Diamant wird entpackt...\n")
  120.     (set #wrk-installing-Helvetica
  121.         "\nEinige Fonts werden installiert...\n")
  122.     (set #wrk-installing-Konverter
  123.         "\nDer MaxonCINEMA 4D Konverter wird entpackt...\n")
  124.     (set #wrk-installing-Hilfsprogramme
  125.         "\nEinige Hilfsprogramme werden entpackt...\n")
  126.     (set #wrk-installing-Entwickler
  127.         "\nEinige Entwicklertools werden entpackt...\n")
  128.     (set #wrk-installing-Schubladen
  129.         "\nErzeuge einige Unterverzeichnisse...\n")
  130.     (set #wrk-installing-Diamantlklein
  131.         "\nDie Beispieldatei Diamant-Klein wird entpackt...\n")
  132.     (set #wrk-installing-Szenen
  133.         "\nEinige Beispielszenen werden entpackt\n")
  134.     (set #wrk-installing-Pictures
  135.         "\nEinige gepackte Bilder werden kopiert\n")
  136.     (set #wrk-installing-Texture
  137.         "\nDie Texturen werden kopiert!\n")
  138.  
  139. (set #prp-installation
  140.             "Auf welches Medium möchten Sie gerne installieren?")
  141. (set #hlp-installation
  142. (cat    "    Bitte geben Sie hier an, ob Sie eine Disketten- "
  143.             "oder Festplatteninstallation wünschen!\n\n"
  144.             "Das komplette Programm belegt auf der Festplatte "
  145.             "ca. 5 MByte Speicher. Wenn Sie eine Disketteninstallation "
  146.             "wünschen, müssen Sie sieben Disketten bereitlegen!\n\n"
  147.              @askchoice-help))
  148.     (set #disk-installation
  149.         "Auf Diskette")
  150.     (set #harddisk-installation
  151.         "Auf Festplatte")
  152.  
  153. (set #askdir-global
  154. (cat "Beschreibung der Schalter:\n\n"
  155.          "Der große \"Rollbereich\" in der Mitte des Fensters zeigt den "
  156.      "Inhalt der aktuellen Diskette oder des aktuellen Verzeichnisses. "
  157.      "Schubladen werden durch\ndie invertierten Buchstaben \"DRW\" vor "
  158.      "deren Namen gekennzeichnet. Der Name der Diskette oder des "
  159.      "Verzeichnisses, das dargestellt wird, erscheint darunter in einem "
  160.      "hervorgehobenen Kasten. Auf der rechten Seite des Inhaltsfeldes "
  161.      "befindete sich ein Schieber, mit dem man sich durch eine "
  162.      "Verzeichnis- liste bewegen kann, falls der sichtbare Platz nicht für "
  163.      "alle Einträge ausreicht.\n\n"
  164.      "Man kann das aktuelle Verzeichnis wechseln, indem man auf den "
  165.      "Namen einer Schublade klickt.\n\n"
  166.      "Mit dem Schalter \"Parent Drawer\" gelangt man wieder in das "
  167.      "übergeordnete Verzeichnis (von dem aus eine Schublade angeklickt "
  168.      "wurde.)\n\n"
  169.      "Der Schalter \"Show Drives\" zeigt alle am Amiga ange- schlossenen "
  170.      "Geräte (z.B. Disketten- oder Fest- platten-Laufwerke) an. Klicken "
  171.      "Sie auf einen Namen, um sich den Inhalt des betreffenden "
  172.      "Gerätes anzusehen.\n\n"
  173.      "Über den Schalter \"Make New Drawer\" können Sie eine neue "
  174.      "Schublade erzeugen. Diese neue Schublade\nwird in dem Verzeichnis "
  175.      "angelegt, das Sie soeben betrachten.\n\n"
  176.      "Sobald Sie auf \"Proceed\" klicken, wird mit der Installation "
  177.      "fortgefahren.\n\n"
  178.      "Ein Klick auf \"Abort Install\" bricht die Installation "
  179.      "an dieser Stelle ab. Es werden keine weiteren Änderungen mehr "
  180.      "vorgenommen.\n\n"
  181.      "\"Help...\" zeigt diesen Text."))
  182. (set #prp-installdrawer
  183.             "Auf welches Medium möchten Sie gerne installieren?")
  184. (set #askdir-help
  185. (cat     "\nWählen Sie zuerst die Partition Ihrer Festplatte aus, auf der "
  186.             "Sie gerne MaxonCINEMA 4D installieren möchten. Dann drücken Sie "
  187.             "auf \"PROCEED\" und das Programm beginnt mit der Arbeit.\n"
  188.             "Es ist nicht notwendig, eine Schublade anzulegen! Es wird "
  189.             "automatisch die Schublade MaxonCINEMA erzeugt!\n\n"
  190.             #askdir-global))
  191. (set #askdisk-help
  192. (cat         "\nStellen Sie sicher, daß Sie sieben Disketten "
  193.         "formatiert und richtig benannt haben.\n"
  194.         #askdir-global))
  195.  
  196. (set #prp-versionchoice
  197. (cat    "\nMöchten Sie die Turboversion oder die Normalversion installieren?\n"))
  198. (set #normal-version
  199.             "Normalversion")
  200. (set #turbo-version
  201.             "Turboversion")
  202. (set #hlp-versionchoice
  203. (cat    "\nWenn Sie die Normalversion wählen wird der in Ihrem System vorhandene "
  204.             "mathematische Coprozessor nicht genutzt. Die Normalversion ist die "
  205.             "langsamere Programmversion. Sie sollten diese wählen, wenn Sie über "
  206.             "keinen mathematischen Coprozessor (68881/68882) verfügen.\n"
  207.             "Die schnellere Turboversion nutzt den mathematischen Coprozessor und "
  208.             "sollte installiert werden, wenn Sie Beispielsweise auf einem A2000 mit "
  209.             "Turbokarte, einem A3000 oder einem A4000 installieren!\n\n"
  210.             @askchoice-help))
  211.  
  212. (set #prp-palntsc
  213. (cat    "\nMöchten Sie die Pal- oder NTSC-Einstellung installieren?\n"))
  214. (set #pal-pref
  215.             "PAL")
  216. (set #ntsc-pref
  217.             "NTSC")
  218. (set #hlp-palntsc
  219. (cat    "\nJe nach Einstellung werden entsprechende Voreinstellungen installiert, "
  220.     "die es ermöglichen, MaxonCINEMA 4D auf einem PAL- oder NTSC-Monitor zu "
  221.     "betreiben!\n\n"
  222.     @askchoice-help))
  223.  
  224. (set #prp-sampleinstall
  225. (cat    "\nSollen die beiliegenden Beispiele, Bibliotheken, Hilfsprogramme und Bilder installiert werden?\n"))
  226. (set #yes-samples
  227.             "Ja")
  228. (set #no-samples
  229.             "Nein")
  230. (set #hlp-sampleinstall
  231. (cat    "\nSie können hier angeben, ob außer Cinema 4D noch verschiedene Zusätze installiert werden sollen.\n\n"
  232.     "Das Programm ist auch ohne sie lauffähig.\n\nBei den Zusätzen handelt es sich um einen Konverter, "
  233.     "mit dem Sie auf andere Dateiformate zugreifen können und um mehrere Beispielsszenen, Materialien, "
  234.     "Texturen usw.!\n\n"
  235.     @askchoice-help))
  236.  
  237. (set #prp-grafikausgabe
  238. (cat    "\nSollen Ausgabetreiber für 24 Bit Grafiksysteme installiert werden?\n"))
  239. (set #no-gfxout        "Keine")
  240. (set #retina-gfxout    "Retina")
  241. (set #merlin-gfxout    "Merlin, Visiona, Domino")
  242. (set #egs-gfxout    "EGS (u.a. Piccolo, Rainbow, GVP EGS 110/24) ")
  243. (set #picasso-gfxout "Picasso")
  244. (set #hlp-grafikausgabe
  245. (cat    "\nWenn Sie keine Grafikkarte besitzen und wenn EGS auf Ihrem System nicht "
  246.     "installiert ist, können Sie diese Frage mit \"Proceed\" überspringen.\n"
  247.     "Ist eine der genannten Grafikkarten in Ihrem Amiga-System vorhanden, "
  248.     "dann können Sie veranlassen, daß der entsprechende Treiber "
  249.     "installiert wird.\n\n"
  250.     @askchoice-help))
  251.  
  252.  
  253.     (set #msg-install-cinema-lib
  254.         (cat    "\nNun wird die Cinema-Ausgabe-Library im LIBS:-Ordner installiert.\n\n"
  255.                 "Diese Library wird benötigt, damit CINEMA 4D direkt "
  256.                 "auf der Grafikkarte Bilder darstellen kann."))
  257.  
  258.     (set #prp-copy-cinelib
  259.         "Kopieren der Cinema-Ausgabe-Library")
  260.     (set #hlp-copy-cinelib
  261.         (cat    "    Die Cinema-Ausgabe-Library enthält leistungsfähige Funktionen zum "
  262.                 "Betreiben von CINEMA 4D unter den besonderen Fähigkeiten von "
  263.                 "24 Bit Grafikkarten"
  264.                 "\n\n"
  265.                 @copylib-help))
  266.  
  267.     (set #prp-copy-rct-lib
  268.         "Kopieren der RCT-Library")
  269.     (set #hlp-copy-rct-lib
  270.       (cat    "Die RCT-Library beinhaltet das Standard-Dateiauswahlfenster "
  271.         "Wenn Sie diese Bibliothek schon auf Ihrer Festplatte "
  272.         "installiert haben, dann ist hier eine neuere Version.\n\n"))
  273.  
  274.     (set #msg-disk-too-small
  275.         (cat    "\nDieser Fehler tritt üblicherweise auf, wenn auf Disketten "
  276.                 "installiert wird (wenn Sie auf Festplatte installieren und diese "
  277.                 "Meldung erhalten, sollten Sie jetzt die Installation abbrechen und "
  278.                 "erst mal ein wenig Platz auf Ihrer Platte schaffen!).\n\n"))
  279.     (set #msg-disk-wasnt-empty
  280.         (cat    "Allerdings müßte für die von Ihnen ausgewählten Daten "
  281.             "genügend Platz auf der ausgewählten Diskette sein! Scheinbar "
  282.             "haben Sie keine vollkommen leere Disk verwendet! "
  283.             "Aus diesem Grund wird die Installation jetzt abgebrochen."))
  284.  
  285.     (set #hh-disk-not-enough-space
  286.         (cat    "Bereiten Sie bitte vor dem nächsten Installations-Versuch "
  287.             "eine neue Disk vor und verwenden Sie diese.\n\n"
  288.             "(Hinweise zum Formatieren von Disketten entnehmen Sie bitte "
  289.             "Ihrem Amiga-Benutzerhandbuch)"))
  290.  
  291.     (set #prp-demo-pro-dir
  292.         "Ziel-Verzeichnis für die Beispiel-Daten")
  293.  
  294. (set #prp-insert-texturen
  295.         (cat "\n\nBitte legen Sie nun die Diskette \"TEXTUREN\" "
  296.                  "in ein beliebiges Laufwerk ein!"))
  297.  
  298. (set #prp-somefiles
  299.         (cat "\nEinige Installationsdateien werden kopiert ...\n"))
  300.  
  301.  
  302. (set #ERRORRAM (cat "Kann die notwendigen Dateien nicht in die Ram disk kopieren."))
  303.  
  304. (set @abort-button "Abbruch")
  305. (set @language "Deutsch")
  306.  
  307. (Procedure Inst_NormFiles
  308. ;    (if (< (getdiskspace @Dest) @Size)
  309. ;        (abort #no-inst))
  310.  
  311.     (set @anzeige (cat "Kopiere "@FName" aus "@SOURCE" \nnach "@Dest))
  312.     (copyfiles (prompt @anzeige)(help @copyfiles-help)(source @Source)(choices @FName)(files)(infos)(dest @Dest)(confirm))
  313. )
  314.  
  315. (Procedure Inst_PatternFiles
  316.     (set @Dest_File (tackon @default-dest @Dest))
  317.     (if                                          ; Verzeichnis erzeugen
  318.         (= (exists @Dest_File) 0)
  319.         (makedir (@Dest_File))
  320.     )
  321.  
  322.     (set @anzeige (cat "Kopiere "@FName" aus "@SOURCE" \nnach "@Dest_File))
  323.     (working @Working @Dest)
  324.     (copyfiles (prompt @anzeige)(help @copyfiles-help)(source @Source)(pattern @Pattern)(infos)(dest @Dest_File)(confirm))
  325. )
  326.  
  327. (Procedure Inst_DiskPatternFiles
  328.     (set @Dest_File @Dest)
  329.     (if                                          ; Verzeichnis erzeugen
  330.         (= (exists @Dest_File) 0)
  331.         (makedir (@Dest_File))
  332.     )
  333.  
  334.     (set @anzeige (cat "Kopiere "@FName" aus "@SOURCE" \nnach "@Dest_File))
  335.     (working @Working @Dest)
  336.     (copyfiles (prompt @anzeige)(help @copyfiles-help)(source @Source)(pattern @Pattern)(infos)(dest @Dest_File)(confirm))
  337. )
  338.  
  339. (Procedure Inst_LhaFiles
  340.     (set @TMP (tackon "RAM:" (fileonly @Source)))
  341.     (if                                 ; Verzeichnis erzeugen
  342.         (= (exists @Dest) 0)
  343.         (makedir (@Dest)(infos))
  344.     )
  345.  
  346.     (copyfiles (prompt "")(help "")(source @Source)(newname (fileonly @Source))(dest "RAM:")(confirm))
  347.     (working @Working @Dest)
  348.     (run ("RAM:Lhx -E -N x %s \"%s/\"" @TMP @Dest))
  349.     (delete @TMP)
  350. )
  351.  
  352. (Procedure Inst_Disk-LhaFiles
  353.     (
  354.     (set @TMP (tackon "RAM:" (fileonly @Source)))
  355. ;    (set @Dest (tackon @DiskNEU @Dest))
  356.  
  357.     (copyfiles (prompt "")(help "")(source @Source)(newname (fileonly @Source))(dest "RAM:")(confirm))
  358.  
  359.     (set @STRING ("\nBitte legen Sie nun die Diskette %s in ein beliebiges Laufwerk ein!\n" @DiskNEU))
  360.  
  361.     (askdisk
  362.         (prompt @STRING)
  363.         (help @askdisk-help)
  364.         (dest @Disk)
  365.     )
  366.  
  367.     (working @Working @DiskNEU)
  368.     (run ("RAM:Lhx -E -N x %s \"%s\"" @TMP @DiskNEU))
  369.     (delete @TMP))
  370. )
  371.  
  372.  
  373. (message #introduction)
  374. (welcome)
  375.  
  376. (if (= fdinstall 1)            ; auf Festplatte installieren !
  377.     (
  378.         (set @default-dest      ;Laufwerk aussuchen
  379.             (askdir
  380.                 (prompt #prp-installdrawer)
  381.                 (help    #askdir-help)
  382.                 (default fdrawer)
  383.                 (disk)
  384.             )
  385.         )
  386.  
  387.         (set @default-dest
  388.             (pathonly @default-dest))    ; Nur das Laufwerk wird benötigt
  389.  
  390.         (set @default-dest (tackon @default-dest "MaxonCINEMA"))
  391.  
  392.         (if                                     ; Verzeichnis erzeugen
  393.             (= (exists @default-dest) 0)
  394.             (makedir (@default-dest)(infos))
  395.         )
  396.     )
  397. )
  398.  
  399. (set gfxout                        ; auf Grafikkarte
  400.     (askchoice
  401.         (prompt #prp-grafikausgabe)
  402.         (help #hlp-grafikausgabe)
  403.         (choices #no-gfxout #retina-gfxout #merlin-gfxout #egs-gfxout #picasso-gfxout)
  404.         (default gfxout)
  405.     )
  406. )
  407.  
  408.  
  409. (copyfiles                        ; LHX kopieren
  410.     (prompt #prp-somefiles)
  411.     (help @copyfiles-help)
  412.     (source sourcefd-lhx)
  413.     (dest "RAM:")
  414. )
  415.  
  416. (complete 10)
  417.  
  418. (if(= 0 (exists "RAM:Lhx"))
  419.     (abort #ERRORRAM))
  420.  
  421. (delete
  422.     ("libs:cinemaausgabe.library")
  423. )
  424.  
  425. (if (= fdinstall 1)            ; auf Festplatte installieren !
  426.     (
  427.         (
  428.             (set @Working #wrk-installing-prgnormal)
  429.             (set @Source sourcefd-lha-normalversion)
  430.             (set @Dest @default-dest)
  431.             (Inst_LhaFiles)    ; Entpacken
  432.         )
  433.  
  434.         (complete 20)
  435.  
  436.  
  437.         (if (= gfxout 1)    ; Retina output
  438.             (copylib
  439.                 (prompt #prp-copy-cinelib)
  440.                 (help #hlp-copy-cinelib)
  441.                 (source sourcefd-retina)
  442.                 (dest "LIBS:")
  443.                 (confirm)
  444.             )
  445.         )
  446.         (if (= gfxout 2)    ; Merlin output
  447.             (copylib
  448.                 (prompt #prp-copy-cinelib)
  449.                 (help #hlp-copy-cinelib)
  450.                 (source sourcefd-merlin)
  451.                 (dest "LIBS:")
  452.                 (confirm)
  453.             )
  454.         )
  455.         (if (= gfxout 3)    ; EGS output
  456.             (copylib
  457.                 (prompt #prp-copy-cinelib)
  458.                 (help #hlp-copy-cinelib)
  459.                 (source sourcefd-egs)
  460.                 (dest "LIBS:")
  461.                 (confirm)
  462.             )
  463.         )
  464.         (if (= gfxout 4)    ; Picasso output
  465.             (copylib
  466.                 (prompt #prp-copy-cinelib)
  467.                 (help #hlp-copy-cinelib)
  468.                 (source sourcefd-picasso)
  469.                 (dest "LIBS:")
  470.                 (confirm)
  471.             )
  472.         )
  473.  
  474.  
  475. (complete 50)
  476.  
  477.     (set @Working #wrk-installing-Schubladen)
  478.     (set @Source sourcefd-lha-Schubladen)
  479.     (set @Dest @default-dest)
  480.     (Inst_LhaFiles)    ; Entpacken
  481.  
  482. (complete 60)
  483.  
  484.     (set @Working #wrk-installing-Konverter)
  485.     (set @Source sourcefd-lha-Konverter)
  486.     (set @Dest @default-dest)
  487.     (Inst_LhaFiles)    ; Entpacken
  488.  
  489. (complete 90)
  490.  
  491.     (if os-13
  492.     (set @Working #prp-copy-rct-lib)
  493.     (set @Source sourcefd-lha-rctlib)
  494.     (set @Dest "LIBS:")
  495.     (Inst_LhaFiles)    ; Entpacken
  496.     )
  497.     )
  498. )
  499.  
  500. (complete 100)
  501.  
  502. ; ------- FERTIG
  503.  
  504. (message (cat
  505.     "Die Installation von MaxonCINEMA 4D ist erfolgreich beendet.\n\n"
  506.        "Wir wünschen Ihnen viel Spaß beim Arbeiten mit CINEMA 4D!")
  507. )
  508.